home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / YAM23.lha / YAM2.3 / Rexx / Archiver.yam next >
Text File  |  2000-04-19  |  864b  |  21 lines
  1. /* Archiver.yam - Creates packed attachments                            */
  2. /* $VER: Archiver.yam 1.0 (21.01.00) © 2000 by M.Beck <mbeck@yam.ch>    */
  3. /* This archiver scripts looks at the archive filename extension and    */
  4. /* automatically selects the appropriate archiver program. For example, */
  5. /* if you enter "test.lzx", the script will pack the files using LZX    */
  6. /* instead of LHA. Installation: Go to YAM/Config/Misc and set the      */
  7. /* option Archiver to "rx archiver.yam %a %f".                          */
  8.  
  9. PARSE ARG arcname' 'filelist
  10. ext = UPPER(RIGHT(arcname,4))
  11. SELECT
  12.    WHEN ext = '.ZIP' THEN cmd = 'ZIP 'arcname filelist
  13.    WHEN ext = '.LZX' THEN cmd = 'LZX -a a 'arcname filelist
  14.    WHEN ext = '.LHA' THEN cmd = 'LhA -a -m a 'arcname filelist
  15.    OTHERWISE              cmd = 'LhA -a -m a 'arcname filelist
  16. END
  17. ADDRESS COMMAND cmd
  18. EXIT
  19.  
  20.  
  21.